home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 40 / 040.d81 / spot shot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  142 lines
  1. 1 poke53280,254:poke53281,251
  2. 2 gosub 6000
  3. 9 print"[147]";
  4. 10 print"";chr$(142):poke53280,2:poke53281,0
  5. 20 print"                                        ";
  6. 21 print"    [209][209][209][209]    [209][209][209][209][209]     [209][209][209][209]    [209][209][209][209][209][209]    ";
  7. 22 print"   [209][209]  [209][209]   [209][209]  [209][209]   [209][209]  [209][209]     [209][209]      ";
  8. 23 print"   [209][209]       [209][209]  [209][209]   [209][209]  [209][209]     [209][209]      ";
  9. 24 print"    [209][209][209][209]    [209][209][209][209][209]    [209][209]  [209][209]     [209][209]      ";
  10. 25 print"       [209][209]   [209][209]       [209][209]  [209][209]     [209][209]      ";
  11. 26 print"   [209][209]  [209][209]   [209][209]       [209][209]  [209][209]     [209][209]      ";
  12. 27 print"    [209][209][209][209]    [209][209]        [209][209][209][209]      [209][209]      ";
  13. 28 print"                                        ";
  14. 30 print" [146]                                       ";
  15. 31 print" [146]   [209][209][209][209]    [209][209]  [209][209]    [209][209][209][209]    [209][209][209][209][209][209]    ";
  16. 32 print" [146]  [209][209]  [209][209]   [209][209]  [209][209]   [209][209]  [209][209]     [209][209]      ";
  17. 33 print" [146]  [209][209]       [209][209]  [209][209]   [209][209]  [209][209]     [209][209]      ";
  18. 34 print" [146]   [209][209][209][209]    [209][209][209][209][209][209]   [209][209]  [209][209]     [209][209]      ";
  19. 35 print" [146]      [209][209]   [209][209]  [209][209]   [209][209]  [209][209]     [209][209]      ";
  20. 36 print" [146]  [209][209]  [209][209]   [209][209]  [209][209]   [209][209]  [209][209]     [209][209]      ";
  21. 37 print" [146]   [209][209][209][209]    [209][209]  [209][209]    [209][209][209][209]      [209][209]      ";
  22. 38 print" [146]                                       ";
  23. 39 print"                                        [146]";
  24. 42 print"[158]please enter the time limit in the range of  (0001 to 9999) [146] :";
  25. 43 print"             [157][157][157][157][157][157][157][157][157][157][157][157][157]";
  26. 45 a$="":print"[164]";:z=0:forx=1to5
  27. 46 getb$:ifb$=""then46
  28. 47 ifb$=chr$(20)andx>1thenx=x-1:printb$;:a$=left$(a$,x-1):print"[157][164]";:goto46
  29. 48 ifb$=chr$(20)then46
  30. 49 ifb$=chr$(13)theni=val(a$):print :goto90
  31. 50 ifb$<"0"orb$>"9"then46
  32. 51 ifx>4 then 46
  33. 52 a$=a$+b$:print"[157]"b$"[164]";:next
  34. 90 ifi>0 then100
  35. 91 print"[145]       do you wish to quit? (y/n)      "
  36. 92 geta$:ifa$=""then92
  37. 93 ifa$="y"ora$="[217]"then680
  38. 94 ifa$="n"ora$="[206]"thenprint"[145][145]";:goto42
  39. 95 goto 92
  40. 100 print"[147]","   please wait...";:forc=55296 to 56295:pokec,2:nextc
  41. 101 print"[147]";
  42. 102 uu=0:poke53280,2:poke53281,15
  43. 105 n=peek(53278):nn=peek(53279)
  44. 110 tp$="[144]"
  45. 120 t$="[144]time=       [157][157][157][157][157][157][157]":s$="score="
  46. 130 f$="spot shot"
  47. 140 c$="blue=100  yellow=75  green=50  red=25"
  48. 400 forg=0to2:print"[144]                                        ";:nextg
  49. 410 printf$;t$;uu;tp$;s$;uu;c$
  50. 490 print"          press space to exit           ";:qq=2
  51. 500 b=2024:t=1183:l=int(rnd(1)*(839)+1184)
  52. 502 c=81:v=53248:s=54272:gosub900:w=1
  53. 505 poke49695,0:poke49700,192:sys49693
  54. 510 form=ito0step-1:x=int(rnd(1)*(4)+1)
  55. 520 ifx=1then if(l+1)<bthenpokel+1,c:pokel,32:l=l+1:goto710
  56. 530 ifx=2then if(l-1)>tthenpokel-1,c:pokel,32:l=l-1:goto710
  57. 540 ifx=3then if(l+40)<bthenpokel+40,c:pokel,32:l=l+40:goto710
  58. 550 ifx=4then if(l-40)>tthenpokel-40,c:pokel,32:l=l-40:goto710
  59. 590 goto 710
  60. 600 print"[147]":poke49695,49:poke49700,234:sys49693:pokev+21,0
  61. 610 fora=stos+24:pokea,0:nexta
  62. 620 print"your score is ";uu:
  63. 630 print"[183][183][183][183][183][183][183][183][183][183][183][183][183]"
  64. 640 print"   do you wish to play again ? (y/n)"
  65. 650 getha$:ifha$=""then650
  66. 660 ifha$="y"thenrestore:clr:goto10
  67. 661 ifha$="n"then670
  68. 662 goto 650
  69. 670 print"[145]       do you wish to quit? (y/n)      "
  70. 671 geta$:ifa$=""then671
  71. 672 ifa$="n"ora$="[206]"thenprint"[145]";:goto640
  72. 674 ifa$="y"ora$="[217]"then 680
  73. 675 goto 671
  74. 680 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  75. 681 ifer<>63 then print"[147]":end
  76. 682 load"hello connect",8,1
  77. 684 end
  78. 700 rem
  79. 710 ifw=1thenpokep,190:pokep+1,190:pokep+2,190:pokep+3,190:w=2:goto750
  80. 720 ifw=2thenpokep,191:pokep+1,191:pokep+2,191:pokep+3,191:w=3:goto750
  81. 730 ifw=3thenpokep,192:pokep+1,192:pokep+2,192:pokep+3,192:w=4:goto750
  82. 740 ifw=4thenpokep,193:pokep+1,193:pokep+2,193:pokep+3,193:w=1:goto750
  83. 750 ifab=1thenpokes+11,17:ab=0:goto757
  84. 755 pokes+11,16:ab=1
  85. 757 ifpeek(1020)>0thenpokes+4,33:goto760
  86. 758 pokes+4,32
  87. 759 geta$:ifa$=" "then m=0
  88. 760 if peek(2) > 0 then poke2,0:pokel,32:goto 765
  89. 761 pr=peek(787)
  90. 762 ifpr>0then:poke782,pr:sys49706:poke787,0:poke53280,pr:qq=pr
  91. 763 goto 795
  92. 765 ifqq=6thenuu=uu+100
  93. 766 ifqq=7thenuu=uu+75
  94. 767 ifqq=5thenuu=uu+50
  95. 768 ifqq=2thenuu=uu+25
  96. 770 printtp$;s$;uu;
  97. 790 l=int(rnd(1)*(839)+1184)
  98. 795 printt$;m;:nextm:goto600
  99. 900 :
  100. 905 :
  101. 960 fora=stos+24:pokea,0:nexta:pokes+24,15
  102. 965 pokes,250:pokes+1,3:pokes+4,32:pokes+6,240:pokes+7,55:pokes+8,39
  103. 970 pokes+13,128
  104. 975 p=2040:pokep,192:pokep+1,193:pokep+2,192:pokep+3,193:pokep+7,198
  105. 976 pokep+4,194:pokev+39,6:pokev+40,7:pokev+41,5:pokev+42,2:pokev+46,1
  106. 977 pokev+28,16:pokev+37,1:pokev+38,2
  107. 978 pokev,75:pokev+1,110:pokev+2,245:pokev+3,110:pokev+4,75:pokev+5,185
  108. 979 pokev+6,245:pokev+7,185:pokev+8,170:pokev+9,229:pokev+21,31
  109. 980 pokev+29,15:pokev+23,15
  110. 990 return
  111. 6000 ifa>0 then 6015
  112. 6010 print"[147]"
  113. 6015 print""
  114. 6020 print
  115. 6030 print"           [158]L O A D S T A R"
  116. 6040 print"           [155][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  117. 6050 print
  118. 6060 print"              [153]Presents"
  119. 6070 print
  120. 6080 print
  121. 6090 print"           S P O T  S H O T"
  122. 6100 print
  123. 6110 print
  124. 6120 print
  125. 6130 print"              [159]Written By"
  126. 6140 print
  127. 6150 print"             Thomas Hayes"
  128. 6160 print
  129. 6170 print
  130. 6180 print
  131. 6190 print
  132. 6200 print"            [150]COPYRIGHT 1987"
  133. 6210 print
  134. 6220 print"         [158][204]oading ... [208]lease [215]ait
  135. 6221 [139]a[178]0[167]a[178]1:[147]"data1",8,1
  136. 6222 [139]a[178]1[167]a[178]2:[147]"data2",8,1
  137. 6230 [153]"on        (NULL)ress print(NULL)(NULL)atnlenval (NULL)o lenontinue   "
  138. 6240 [153]
  139. 6250 [153]"";
  140. 6255 [161]a$:[139]a$[179][177]" "[167]6255
  141. 6256 [142]
  142.